home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / Loops / gen-repeat < prev    next >
Lisp/Scheme  |  1998-10-23  |  614b  |  13 lines
  1. gen-repeat number-of-repeats symbol-pattern
  2.  
  3. Use this function to generate any number-of-repeats of a symbol-pattern. This is an alternative to gen-loop when the symbol-pattern is extensive. Useful in combination with randomizer to create variations and mutations.
  4.  
  5. (setq mel '(a eee c (1 e) d e))
  6. (setq var (gen-random-variate 0.9 0.05 -1 1 (gen-repeat 3 mel)))
  7. --> (a eee c (1 e) d e a eee c (1 e) e f b fff c (1 e) d f)
  8.  
  9. (gen-repeat 3 '(1/2))
  10. --> (1/2 1/2 1/2)
  11.  
  12. gen-repeat is useful when constructiong zones that equal the number of tonalities defined earlier. En example of this is on gen-tonality definition.
  13.